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^304 

bebop v1.0: (c) Microsoft Corporation. 
Done creating bdd variables 
Done building transition relations 

Label R reachable by following path: 



300 



302^ 

decl g; 

main() 
begin 





decl h; 


[6] 


h := !g; 


[7] 


A(g,h); 


[8] 


skip; 


[9] 


A(g,h); 


[10] 


skip; 


[11] 


if (g) then 


[12] 


R; skip; 




else 


[14] 


skip; 




fi 




end 



A(a1,a2) 

begin 
[20] if (a1) then 
[21] A(a2,a1); 
[22] skip; 
else 

[24] g := a2; 

fi 

end 
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500- 



[1] 
[2] 

[3] 
[4] 



if (z) { 
x:=1 ; 

else 

x:=z; 

z:=y|x; 
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Booloan cr 


[1] 


main() { 


L^-J 


if ( 


[3] 


x:=1 ; 




else 


[4] 


x:=0; 


[5] 


z:=y+x; 


[6] 


foo (z); 


[7] 


skip; 


[8] 


} 


[9] 


foo (z) { 


[10] 


g:=i; 


[11] 


} 
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1 K 1 9/13 

global 

902 ~^-PathEdges,SummaryEdges, WorkList 900 

904-\_ procedure Propagate(v,/?) 
begin 

906^_ if p ^ p at hEdges(v) then 

908-^_ p a thEdges(v) := PathEdges(v) up 
j nsert y j nt0 WortUst fj 

fi 
end 



912^ 
914-. 
916 



procedure Reachable(G^ ) 
begin 

^- for all v e V B do PathEdges(v) := {} 
911-^ for all v g C«//g do Summary Edges (v) := {} 
9/#~/- PathEdges (First B (mam)) := 

{<Q, Q) | Q is any valuation to globals and local variables of main } 

920-^ WorkList .= {First B (mam)} 
922 "V while WorkList * 0 do 

924 -\_ remove vertex v from WorkList 

926 switch (v) 

928 case v g Call B j-930 
?ropsLgate( s Succ B (v),SelfLoop(Join (PathEdges(v) , Transfer y))) 
Propagate(Mwr«Pf 5 (v),./oM (PathEdges (v), SummaryEdges ( v))) 
9j4^casevG£^Y 5 : ^ I W2 



for each w g Succ b {v) do 
" :t 

c g Call B such that w 
s=Lift c (PathEdges(v),ProcOf B (v)) -x, 



'^^ 9j# 

c g Ca//g such that w=ReturnPt B (c) and 



in 

if 5<Z'S'wmmary£'d , g^(c)then 
SummaryEdges(c) := SummaryEdges(c) \js -S~ y-948 
Propagate(w, .Awi (PathEdges(c), SummaryEdges (c))); 

ni 

950^~ casev e Co«rf 5 : 952 
Propagate( Tsucc B (v),Join (PathEdges (v), Transfer v f rue )) 
PropagaXQlFsucc^v) Join (PathEdges (v)Jransferyfai se )) 954 

956 s~ case v ^ - C<z//d - Exit B - Cond B : 

let p=Join (PathEdges (v), Transfer v ) in -v, 95^ 

for each w g Succ b (v) do -\_ 950 
Propagate^,/?) ^ 962 

end 
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global 

PE' : V G ^ set-of (D x D) 
Worklist V G set-of (D x D) 

procedure Propagate^-' V Gp : (D x D)) 
begin 
if p £ PE' (v) then 

PE'(v):= PE'(v)u{p} 
Worklist(v) := Worklist(v) u {p} 

fi 

end 



procedure CM0P SP (S : set-of D) 
begin rhs 

PE' (entry) :={(d, d) \d G S} 
Worklist(entry) := PE' (entry) 
while 3v 2 s.t Worklist(v 2 ) * 0 do 
select and remove (d 1t d 2 )from Worklist(v 2 ) 
for each v 2 -> v 3 e E G do 
for each d 3 G M(v 2 -» v 3 )({d 2 })6o 

Propagate^,, of 3 )) 
od 
od 
od 
end 
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global 

PE' : V -> set-of (set-of D x set-of D) 
Worklist : V G -> set-of (set-of D x set-of D) 

procedure Propagate(v : V Gp : (set-of D x set-of D)) 
begin 
if p £ PE' (v) then 

PE' (v) := PE'(v)kj{p) 
Worklist(v) := Worklist(v) u {p} 

fi 

end 

procedure CSMOP sp (S' : set-of (set-of D)) 
begin rhs 

PE' (entry) :={(S,S) |S G S'} 
Worklist(entry) := PE' (entry) 
while 3v 2 s.t Worklist(v 2 ) ^ 0 do 
select and remove (S 1 , S 2 )from Worklist(v 2 ) 
for each v 2 -> v 3 G E 6 do 
let S 3 =M(v 2 ^v 3 )(S 2 ) in 
Propagate(v 3 (S, , S 3 )) 

ni 
od 
od 
end 
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